home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00828_SU-en bt +.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  533 b   |  27 lines
  1. on MouseClick
  2.   global g1erSprLoc, gLabel, gLocLabel, gRetour
  3.   if word 1 of the name of cast the castNum of sprite (g1erSprLoc + 7) = "BTGOEI" then
  4.     set gLabel to "SU:IN en fi"
  5.     set gRetour to "SU:IN en"
  6.     set gLocLabel to "SU:OU EN"
  7.   else
  8.     nothing()
  9.   end if
  10. end
  11.  
  12. on mouseDown
  13.   global gNumSpr, g1erSprLoc, gBoutons
  14.   set gNumSpr to g1erSprLoc + 7
  15.   gBoutons(appuie, gNumSpr)
  16. end
  17.  
  18. on mouseUp
  19.   global gNumSpr, g1erSprLoc
  20.   curseur(1)
  21.   if gNumSpr = (g1erSprLoc + 7) then
  22.     MouseClick()
  23.   else
  24.     pass()
  25.   end if
  26. end
  27.